home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / BIN / xdswork.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-08  |  1KB  |  55 lines
  1. /***********************************************
  2.           Native XDS-x86 OS/2 Edition
  3.               v2.17 (pre-release)
  4.  
  5.        Working Directory Creation Script
  6.  
  7.          Copyright (c) 1996 xTech Ltd.
  8. ************************************************/
  9.  
  10. '@echo off'
  11. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  12. Call SysLoadFuncs
  13.  
  14. call SysCls
  15. call SysCurState off
  16. say
  17. say "    Do you want to create appropriate subdirectories"
  18. say "    and redirection file in directory" directory() "? (Y/N)"
  19.  
  20. do forever
  21.   key = translate(SysGetKey('NOECHO'));
  22.   if (key = 'Y') | (key = 'N') | (key = X2C(27)) then leave
  23. end  
  24. if key <> 'Y' then exit
  25.  
  26. parse source . . xdsdir
  27. xdsdir = left(xdsdir,lastpos('\',xdsdir)-1)      /* Strip "\<cmd-name>" */
  28. xdsdir = left(xdsdir,lastpos('\',xdsdir)-1)      /* Strip "\BIN" */
  29.  
  30. say "    creating directory structure..."
  31. 'mkdir DEF SYM OBJ SRC'
  32. if rc <> 0 then do
  33.   say "Error making subdirectories"
  34.   exit 1
  35. end
  36.  
  37. say "    creating appropriate redirection file..."
  38. 'echo>xc.red xc.msg = 'xdsdir'\bin'
  39. 'echo>>xc.red xc.cfg = 'xdsdir'\bin'
  40. 'echo>>xc.red *.tem  = 'xdsdir'\bin'
  41. 'echo>>xc.red *.lib  = 'xdsdir'\lib'
  42. 'echo>>xc.red *.sym  = $!\sym;'xdsdir'\sym'
  43. 'echo>>xc.red *.obj  = $!\obj'
  44. 'echo>>xc.red *.rsp  = $!\obj'
  45. 'echo>>xc.red *.def  = $!\def;'xdsdir'\os2def'
  46. 'echo>>xc.red *.mod  = $!\src'
  47. 'echo>>xc.red *.ob2  = $!\src'
  48. 'echo>>xc.red *.prj  = $!'
  49.  
  50. say ''
  51. say '    DONE'
  52. say ''
  53. exit
  54.  
  55.